Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application") 
objExcel.DisplayAlerts = False 
strFolder = "E:/user/WeChat Files/WeChat Files/wxid_vu6eu977ndi121/FileStorage/File/2021-04/zhejiang8.xls"
strFolder2 = "D:"
filename2 = "zhejiang8.xls"
Set objWorkbook = objExcel.Workbooks.Open(strFolder) 
 For Each sheet In objWorkBook.Sheets 
If objExcel.Application.WorksheetFunction.CountA(sheet.Cells) <> 0 Then 
   objWorkbook.sheets(sheet.Name).Activate  
   objWorkbook.SaveAs strFolder2 & Split(filename2, ".")(0) & "_" & sheet.Name & ".csv", 6  
 End If  
Next  
objWorkbook.Close
 objExcel.Quit  
